home *** CD-ROM | disk | FTP | other *** search
- my_radius = _width / "2";
- my_x = _X;
- my_y = _Y;
- my_n = _name;
- if(ymov == "")
- {
- ymov = - "10";
- xmov = eval("/:direction");
- ysign = "0";
- xsign = "0";
- }
- n = "1";
- while(eval("/:total_circles") >= n)
- {
- if(n ne my_n)
- {
- n_x = getProperty("../" add n, _X);
- n_y = getProperty("../" add n, _Y);
- n_radius = getProperty("../" add n, _width) / "2";
- delta_x = my_x + xmov - n_x;
- delta_y = my_y + ymov - n_y;
- if(delta_x * delta_x + delta_y * delta_y < (my_radius + n_radius) * (my_radius + n_radius))
- {
- }
- }
- n += "1";
- }
- _Y = my_y + ymov;
- _X = my_x + xmov;
-